home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / TEST16.TRP < prev    next >
Text File  |  1995-01-17  |  251b  |  12 lines
  1. procedure main;
  2. var
  3.         i : integer;
  4.         s : string;
  5. endvar;
  6.         write('Enter String : ');
  7.         readln(s);
  8.         for i := 1 to length(s)  // this is a c++ style comment
  9.                 writeln(s[i]);
  10.         endfor
  11. endproc
  12.